Sub ڵ()

    Dim Ʈ As VBProject
    Dim Ʈ As VBComponent
    Dim  As String
    Dim  As String, Ȯ As String
    
    Set Ʈ = ThisWorkbook.VBProject
    
     = ThisWorkbook.Path & "\"
    
    For Each Ʈ In Ʈ.VBComponents
    
        If Ʈ.CodeModule.CountOfLines > _
            Ʈ.CodeModule.CountOfDeclarationLines Then
    
            Select Case Ʈ.Type
            
                Case vbext_ct_Document, vbext_ct_ClassModule
                    Ȯ = ".cls"
                
                Case vbext_ct_MSForm
                    Ȯ = ".frm"
                    
                Case Else
                    Ȯ = ".bas"
            
            End Select
        
             = Ʈ.Name & Ȯ
            
            If Dir( & ) <> "" Then Kill  & 
            Ʈ.Export  & 
    
        End If
    
    Next

End Sub
